home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / t_os / vnmac / vnmac.mac < prev    next >
Text File  |  1993-11-30  |  4KB  |  263 lines
  1.  
  2. '/*                                  */
  3. '/*  Towns VNET V1.1 L20 用 ﾏｸﾛﾌｧｲﾙ  */
  4. '/*      by [VNMAC V2.1 L10]         */
  5. '/*  VNMAC by metal ( NAD01224 )     */
  6. '/*                                  */
  7.  
  8.     CALL:1
  9.     CALL:2000
  10.     CALL:100
  11.     CALL:110
  12.     CALL:120
  13.     CALL:130
  14.     CALL:1000
  15.     CALL:1110
  16.     CALL:9000
  17.     EXIT:
  18.  
  19. 1:
  20.     MESSAGE:"接続処理中 [VNMAC V2.1 L10]"
  21.     SEND:"ATZ^M"
  22.     SWITCH:
  23.       CASE:"OK",2
  24.       CASE:"◆",9
  25.       TIME:240,2
  26.     END:
  27. 2:
  28.     WAIT:1
  29.     SEND:"ATL0E1M1Q0V1X3\N3\V1\Q3\J0^M"
  30.     RECEIVE:"OK"
  31. 3:
  32.     WAIT:1
  33.     SEND:"ATDT03-5703-0222M^M"
  34.     SWITCH:
  35.       CASE:"CONNECT",4
  36.       CASE:"BUSY",3
  37.       CASE:"NO CARRIER",3
  38.       TIME:240,3
  39.     END:
  40. 4:
  41.     M-CLOSE:
  42.     MESSAGE:"ログイン処理中"
  43.     WAIT:2
  44.     SEND:"@P^M"
  45.     RECEIVE:"*"
  46. 5:
  47.     SEND:"C NIF^M"
  48.     SWITCH:
  49.       CASE:"COM",8
  50.       CASE:"*",5
  51.       TIME:240,5
  52.     END:
  53. 8:
  54.     RECEIVE:"--->"
  55.     SEND:"SVC^M"
  56.     RECEIVE:"--->"
  57.     SEND:"NIF00000^M"
  58.     RECEIVE:"--->"
  59.     CALL:6
  60.     RECEIVE:"＞"
  61.     SEND:"SET MENU OFF^M"
  62.     RECEIVE:"＞"
  63. 9:
  64.     M-CLOSE:
  65.     WAIT:1
  66.     RETURN:
  67.  
  68. 6:
  69.     MESSAGE:"★パスワードを入力して下さい★"
  70.     RECEIVE:"^J"
  71.     M-CLOSE:
  72.     SWITCH:
  73.       CASE:"--->",6
  74.       CASE:"前回LOG",7
  75.       TIME:240,7
  76.     END:
  77. 7:
  78.     RETURN:
  79.  
  80. 10:
  81.     SWITCH:
  82.       CASE:"more>",11
  83.       CASE:"E:終了",12
  84.       CASE:"FORUM>",13
  85.       CASE:"下さい◆",14
  86.       TIME:240,14
  87.     END:
  88. 11:
  89.     SEND:"^M"
  90.     JUMP:10
  91. 12:
  92.     RECEIVE:"＞"
  93.     SEND:"SET MENU OFF^M"
  94.     RECEIVE:"FORUM>"
  95. 13:
  96.     SEND:"SET PAGE OFF^M"
  97.     RECEIVE:"FORUM>"
  98.     RETURN:
  99. 14:
  100.     RECEIVE:"＞"
  101.     FALSE:
  102.     RETURN:
  103.  
  104. 20:  
  105.     SEND:"SEND OFF^M"
  106.     RECEIVE:"FORUM>"
  107.     RETURN:
  108.  
  109. 30:
  110.     SEND:"UST^M"
  111.     RECEIVE:"FORUM>"
  112.     RETURN:
  113.  
  114. 31:
  115.     SEND:"UST2^M"
  116.     RECEIVE:"FORUM>"
  117.     RETURN:
  118.  
  119. 50:
  120.     SEND:"MES^M"
  121.     RECEIVE:"＞"
  122.     SEND:"MRE^M^M"
  123.     RECEIVE:"◆次頁はありません◆"
  124.     RECEIVE:"＞"
  125.     M-CLOSE:
  126.     RETURN:
  127.  
  128. 100:  
  129.     MESSAGE:"フォーラム処理中 : FTOWNS1"
  130.     SEND:"GO FTOWNS1^M"
  131.     CALL:10
  132.     IF-FALSE:100  
  133.     CALL:20
  134.     CALL:31
  135.     CALL:50
  136.     RETURN:
  137.  
  138. 110:  
  139.     MESSAGE:"フォーラム処理中 : FTOWNS2"
  140.     SEND:"GO FTOWNS2^M"
  141.     CALL:10
  142.     IF-FALSE:110  
  143.  
  144.     CALL:31
  145.     CALL:50
  146.     RETURN:
  147.  
  148. 120:  
  149.     MESSAGE:"フォーラム処理中 : FFMHOB"
  150.     SEND:"GO FFMHOB^M"
  151.     CALL:10
  152.     IF-FALSE:120  
  153.  
  154.  
  155.     CALL:50
  156.     RETURN:
  157.  
  158. 130:  
  159.     MESSAGE:"フォーラム処理中 : FFMAV"
  160.     SEND:"GO FFMAV^M"
  161.     CALL:10
  162.     IF-FALSE:130  
  163.  
  164.  
  165.     CALL:50
  166.     RETURN:
  167.  
  168. 3000:
  169.     SEND:"SET PAGE OFF^M"
  170.     RECEIVE:"HP>"
  171.     SEND:"REA NEW^M"
  172.     RECEIVE:"HP>"
  173.     RETURN:
  174.  
  175. 1000:
  176.     SEND:"GO HP^M"
  177.     RECEIVE:"＞"
  178.     SEND:"1^M"
  179.     RECEIVE:"："
  180.     RECEIVE:"："
  181.  
  182. 1100:
  183.     MESSAGE:"ＨＰ処理中 : AAA00001"
  184.     SEND:"AAA00001^M"
  185.     SWITCH:
  186.       CASE:"エラー◆",1100
  187.       CASE:"HP>",1102
  188.       CASE:"：",1101
  189.       TIME:240,1101
  190.     END:
  191. 1101:
  192.     SEND:"PASS^M"
  193.     RECEIVE:"HP>"
  194. 1102:
  195.     CALL:3000
  196.     M-CLOSE:
  197.     RETURN:
  198.  
  199. 1110:
  200.     MESSAGE:"ＨＰ処理中 : BBB00002"
  201.     SEND:"MOV BBB00002^M"
  202.     SWITCH:
  203.       CASE:"エラー◆",1110
  204.       CASE:"HP>",1112
  205.       CASE:"：",1111
  206.       TIME:240,1111
  207.     END:
  208. 1111:
  209.     SEND:"WORD^M"
  210.     RECEIVE:"HP>"
  211. 1112:
  212.     CALL:3000
  213.     M-CLOSE:
  214.     RETURN:
  215.  
  216. 2000:
  217.     SEND:"MCHK^M"
  218.     SWITCH:
  219.       CASE:"未読",2100
  220.       CASE:"います－",2290
  221.       CASE:"ません－",2290
  222.       TIME:240,2290
  223.     END:
  224. 2100:
  225.     SWITCH:
  226.       CASE:"＞",2105
  227.       CASE:">",2105
  228.       TIME:240,2105
  229.     END:
  230. 2105:
  231.     MESSAGE:"メール処理中"
  232.     SEND:"MAIL^M"
  233.     RECEIVE:"MAIL>"
  234.     SEND:"SET PAGE OFF^M"
  235.     RECEIVE:"MAIL>"
  236.     SEND:"REA NEW^M"
  237. 2110:
  238.     SWITCH:
  239.       CASE:"action:",2220
  240.       CASE:"MAIL>",2299
  241.       TIME:300,2299
  242.     END:
  243. 2220:
  244.     SEND:"SAV^M"
  245.     JUMP:2110
  246. 2290:
  247.     SWITCH:
  248.       CASE:"＞",2299
  249.       CASE:">",2299
  250.       TIME:240,2299
  251.     END:
  252. 2299:
  253.     M-CLOSE:
  254.     RETURN:
  255.  
  256. 9000:
  257.     SEND:"OFF^M"
  258.     RECEIVE:"*"
  259.     SEND:"OFF^M"
  260.     RECEIVE:"NO CARRIER"
  261.     RETURN:
  262.  
  263.